;Edit *.shp files
;
(defun c:edshp ( / )
  (setq edfil (getfiled "Edit Your AutoCAD Linetype Shape File" (STRCAT(GETVAR "ROAMABLEROOTPREFIX")"Support\\") "shp" 4))
  (if (= 1 edfil)
    (setq edstr "ltypeshp.shp")
    (setq edstr edfil)
  );IF
  (command "NOTEPAD" edstr)
);defun
